function[vel2]=velocidad2(B,N,cuerpo_medio,topline,downline,xbin,inclinacion)
[m,n]=size(xbin);
[f,c]=find(xbin==0);
negros=length(f);
    tiempo=sqrt((2*(c(end)-c(1)))/sin(((abs(inclinacion)*pi)/180)));
ll=length(B);
datos=[];
for t=(N+1):ll
    bb=B{t};
    mayor=0;
    [m,n]=size(bb);
    if m>=4
        while isempty(find(bb(:,1)~=0))==0
            f=find(bb(:,1)==max(bb(:,1)));
            bb(f,1)=0;
            bbb=(max(bb(f,2))-min(bb(f,2)))+1;
            if bbb>mayor
                mayor=bbb;
            end
        end
    bb=B{t};    
    largo=(max(bb(:,2))-min(bb(:,2)))+1;
    datos=[datos (mayor/largo)];        
    end
end
if isempty(datos)
    resul=1;
else
    resul=mean(datos);
end
%vel2=(10*((tiempo-(cuerpo_medio*resul))));
%vel2=abs(10*((((cuerpo_medio)/(downline-topline))*resul)+(negros/(tiempo*resul))));
vel2=abs(((negros/(tiempo*resul))*10)+((downline-topline)/tiempo)+((cuerpo_medio/(tiempo*resul))));